10 POKE13*4096+13*256,PEEK(13*4096+13*256)AND254
20 POKE13*4096+24,8
30 POKE13*4096+17,PEEK(13*4096+17)OR32
40 FORI=0TO1024:POKEI+16*1024,1:NEXT
50 FORI=0TO8192:POKEI+24*1024,0:NEXT
60 :
70 W1=10:W2=100
80 FORS=0TO6.5STEP0.02:X=W1*SIN(S)+160:Y=W2*COS(S)+100
90 X=INT(X+.5):Y=INT(Y+.5):GOSUB2000
100 NEXT:W1=W1+5:W2=W2-5:GOTO80
2000 Y1=INT(Y/8):Y2=Y-Y1*8:X1=INT(X/8):X2=X-X1*8
2010 CH=(Y1*320)+(X1*8)+Y2:BI=2^(7-X2)
2020 POKE24*1024+CH,PEEK(24*1024+CH)ORBI:RETURN